combineFiles <- function() {
  library(stringr)
  library(plyr)
  path <- 'c:/salesinsight/companyProject/data'
  allFiles <- list.files(path=path, include.dirs=FALSE)
  combinedContent <-  read.csv(file=str_c(path,'/',allFiles[1]), sep='|', header=FALSE)
  for(i in 2:length(allFiles)) {
   content <-   read.csv(file=str_c(path,'/',allFiles[i]), sep='|', header=FALSE)
   combinedContent <- rbind(combinedContent, content)
  }
  fileName <- str_c(path,'/allCompanies.txt')
  write.table(col.names=FALSE, quote=FALSE, combinedContent,file=fileName,append=TRUE, sep='|' ,eol='\r\n', row.names=FALSE)
}